/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / efs-mvs.elc.z / efs-mvs.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 39 3a 33 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:59:30 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 66 73 2f |s-20.3/l|isp/efs/|
|000000a0| 65 66 73 2d 6d 76 73 2e | 65 6c 0a 3b 3b 3b 20 65 |efs-mvs.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 65 66 73 2d 6d 76 73 2e |error "`|efs-mvs.|
|000001f0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|00000200| 20 66 6f 72 20 45 6d 61 | 63 73 20 32 30 22 29 29 | for Ema|cs 20"))|
|00000210| 0a 0a 28 6f 72 20 28 62 | 6f 75 6e 64 70 20 27 63 |..(or (b|oundp 'c|
|00000220| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000230| 29 20 28 73 65 74 71 20 | 63 75 72 72 65 6e 74 2d |) (setq |current-|
|00000240| 6c 6f 61 64 2d 6c 69 73 | 74 20 6e 69 6c 29 29 0a |load-lis|t nil)).|
|00000250| 0a 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |..(byte-|code "..|
|00000260| 21 88 c2 c3 21 88 c4 c5 | c6 4f c7 c8 c9 c6 4f 51 |!...!...|.O....OQ|
|00000270| 16 5c 6e ca 0e 0b 42 16 | 0b cc cd ce cf d0 21 0e |.\n...B.|......!.|
|00000280| 11 5c 22 d2 23 88 cc d3 | ce cf d0 21 0e 11 5c 22 |.\".#...|...!..\"|
|00000290| d4 23 88 cc d5 ce cf d0 | 21 0e 11 5c 22 d6 23 88 |.#......|!..\".#.|
|000002a0| cc d7 ce cf d0 21 0e 11 | 5c 22 d8 23 88 cc d9 ce |.....!..|\".#....|
|000002b0| cf d0 21 0e 11 5c 22 da | 23 88 cc db ce cf d0 21 |..!..\".|#......!|
|000002c0| 0e 11 5c 22 dc 23 88 cc | d9 ce cf dd 21 0e 11 5c |..\".#..|....!..\|
|000002d0| 22 de 23 87 22 20 5b 70 | 72 6f 76 69 64 65 20 65 |".#." [p|rovide e|
|000002e0| 66 73 2d 6d 76 73 20 72 | 65 71 75 69 72 65 20 65 |fs-mvs r|equire e|
|000002f0| 66 73 20 22 24 65 66 73 | 20 72 65 6c 65 61 73 65 |fs "$efs| release|
|00000300| 3a 20 31 2e 31 35 20 24 | 22 20 31 34 20 2d 32 20 |: 1.15 $|" 14 -2 |
|00000310| 22 2f 22 20 22 23 52 65 | 76 69 73 69 6f 6e 3a 20 |"/" "#Re|vision: |
|00000320| 31 2e 34 20 24 22 20 31 | 31 20 65 66 73 2d 6d 76 |1.4 $" 1|1 efs-mv|
|00000330| 73 2d 76 65 72 73 69 6f | 6e 20 63 75 72 72 65 6e |s-versio|n curren|
|00000340| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 70 75 74 20 |t-load-l|ist put |
|00000350| 65 66 73 2d 73 65 6e 64 | 2d 70 77 64 20 69 6e 74 |efs-send|-pwd int|
|00000360| 65 72 6e 20 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 |ern symb|ol-name |
|00000370| 6d 76 73 20 65 66 73 2d | 6b 65 79 2d 6f 62 61 72 |mvs efs-|key-obar|
|00000380| 72 61 79 20 23 5b 28 68 | 6f 73 74 20 75 73 65 72 |ray #[(h|ost user|
|00000390| 20 26 6f 70 74 69 6f 6e | 61 6c 20 78 70 77 64 29 | &option|al xpwd)|
|000003a0| 20 22 c0 09 5c 6e c3 c4 | 24 89 1d 41 40 1e 06 c7 | "..\n..|$..A@...|
|000003b0| 1e 08 0d 40 ab a1 c9 20 | 70 0e 5c 6e 1e 0b 1e 0c |...@... |p.\n....|
|000003c0| 1e 0d ce 8e c7 16 5c 6e | cf d0 0e 06 5c 22 ab 89 |......\n|....\"..|
|000003d0| 0e 06 d1 94 d1 95 4f 16 | 08 2c 0e 08 0e 06 2b 42 |......O.|.,....+B|
|000003e0| 87 22 20 5b 65 66 73 2d | 73 65 6e 64 2d 63 6d 64 |." [efs-|send-cmd|
|000003f0| 20 68 6f 73 74 20 75 73 | 65 72 20 28 70 77 64 29 | host us|er (pwd)|
|00000400| 20 22 47 65 74 74 69 6e | 67 20 45 58 50 4c 4f 52 | "Gettin|g EXPLOR|
|00000410| 45 52 20 50 57 44 22 20 | 72 65 73 75 6c 74 20 6c |ER PWD" |result l|
|00000420| 69 6e 65 20 6e 69 6c 20 | 64 69 72 20 6d 61 74 63 |ine nil |dir matc|
|00000430| 68 2d 64 61 74 61 20 63 | 61 73 65 2d 66 6f 6c 64 |h-data c|ase-fold|
|00000440| 2d 73 65 61 72 63 68 20 | 63 66 73 20 62 75 66 66 |-search |cfs buff|
|00000450| 20 6d 61 74 63 68 2d 64 | 61 74 61 20 28 28 62 79 | match-d|ata ((by|
|00000460| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 8f 88 c3 0c |te-code |".......|
|00000470| 21 87 22 20 5b 6e 69 6c | 20 28 62 79 74 65 2d 63 |!." [nil| (byte-c|
|00000480| 6f 64 65 20 22 8a 08 71 | 88 09 12 29 c3 87 22 20 |ode "..q|...).." |
|00000490| 5b 62 75 66 66 20 63 66 | 73 20 63 61 73 65 2d 66 |[buff cf|s case-f|
|000004a0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 6e 69 6c 5d 20 |old-sear|ch nil] |
|000004b0| 31 29 20 28 28 65 72 72 | 6f 72 29 29 20 73 74 6f |1) ((err|or)) sto|
|000004c0| 72 65 2d 6d 61 74 63 68 | 2d 64 61 74 61 20 6d 61 |re-match|-data ma|
|000004d0| 74 63 68 2d 64 61 74 61 | 5d 20 33 29 29 20 73 74 |tch-data|] 3)) st|
|000004e0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 20 5c 22 27 |ring-mat|ch " \"'|
|000004f0| 3f 5c 5c 28 5b 30 2d 39 | 41 2d 5a 5d 2b 5c 5c 29 |?\\([0-9|A-Z]+\\)|
|00000500| 27 3f 5c 22 22 20 31 5d | 20 36 5d 20 65 66 73 2d |'?\"" 1]| 6] efs-|
|00000510| 66 69 78 2d 70 61 74 68 | 20 23 5b 28 70 61 74 68 |fix-path| #[(path|
|00000520| 20 26 6f 70 74 69 6f 6e | 61 6c 20 72 65 76 65 72 | &option|al rever|
|00000530| 73 65 29 20 22 c0 20 70 | 09 1a 1b 1c c5 8e c6 11 |se) ". p|........|
|00000540| 0e 07 ab ac c8 c9 1e 5c | 6e 1e 0b cc cd 0e 0e 5c |.......\|n......\|
|00000550| 22 ab 93 0e 5c 6e 0e 0e | 0e 0b c8 95 4f c9 51 16 |"...\n..|....O.Q.|
|00000560| 5c 6e c8 95 16 0b aa 66 | 0e 5c 6e 0e 0e 0e 0b c6 |\n.....f|.\n.....|
|00000570| 4f 50 2a aa ab cf c6 1e | 5c 6e 1e 0b cc c9 0e 0e |OP*.....|\n......|
|00000580| 0e 0b 23 ab 92 0e 5c 6e | 0e 0e 0e 0b c8 94 4f 50 |..#...\n|......OP|
|00000590| 16 5c 6e c8 95 16 0b aa | 65 0e 5c 6e 0e 0e 0e 0b |.\n.....|e.\n....|
|000005a0| c6 4f 50 2a 2c 87 22 20 | 5b 6d 61 74 63 68 2d 64 |.OP*,." |[match-d|
|000005b0| 61 74 61 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |ata case|-fold-se|
|000005c0| 61 72 63 68 20 63 66 73 | 20 62 75 66 66 20 6d 61 |arch cfs| buff ma|
|000005d0| 74 63 68 2d 64 61 74 61 | 20 28 28 62 79 74 65 2d |tch-data| ((byte-|
|000005e0| 63 6f 64 65 20 22 c0 c1 | c2 8f 88 c3 0c 21 87 22 |code "..|.....!."|
|000005f0| 20 5b 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 | [nil (b|yte-code|
|00000600| 20 22 8a 08 71 88 09 12 | 29 c3 87 22 20 5b 62 75 | "..q...|).." [bu|
|00000610| 66 66 20 63 66 73 20 63 | 61 73 65 2d 66 6f 6c 64 |ff cfs c|ase-fold|
|00000620| 2d 73 65 61 72 63 68 20 | 6e 69 6c 5d 20 31 29 20 |-search |nil] 1) |
|00000630| 28 28 65 72 72 6f 72 29 | 29 20 73 74 6f 72 65 2d |((error)|) store-|
|00000640| 6d 61 74 63 68 2d 64 61 | 74 61 20 6d 61 74 63 68 |match-da|ta match|
|00000650| 2d 64 61 74 61 5d 20 33 | 29 29 20 6e 69 6c 20 72 |-data] 3|)) nil r|
|00000660| 65 76 65 72 73 65 20 30 | 20 22 2f 22 20 72 65 73 |everse 0| "/" res|
|00000670| 20 73 74 61 72 74 20 73 | 74 72 69 6e 67 2d 6d 61 | start s|tring-ma|
|00000680| 74 63 68 20 22 5c 5c 2e | 22 20 70 61 74 68 20 31 |tch "\\.|" path 1|
|00000690| 5d 20 34 5d 20 65 66 73 | 2d 66 69 78 2d 64 69 72 |] 4] efs|-fix-dir|
|000006a0| 2d 70 61 74 68 20 23 5b | 28 64 69 72 2d 70 61 74 |-path #[|(dir-pat|
|000006b0| 68 29 20 22 08 c1 98 ab | 82 c2 87 c3 c4 08 5c 22 |h) "....|......\"|
|000006c0| c5 50 87 22 20 5b 64 69 | 72 2d 70 61 74 68 20 22 |.P." [di|r-path "|
|000006d0| 2f 22 20 22 20 22 20 65 | 66 73 2d 66 69 78 2d 70 |/" " " e|fs-fix-p|
|000006e0| 61 74 68 20 6d 76 73 20 | 22 2a 22 5d 20 33 5d 20 |ath mvs |"*"] 3] |
|000006f0| 65 66 73 2d 61 6c 6c 6f | 77 2d 63 68 69 6c 64 2d |efs-allo|w-child-|
|00000700| 6c 6f 6f 6b 75 70 20 23 | 5b 28 68 6f 73 74 20 75 |lookup #|[(host u|
|00000710| 73 65 72 20 64 69 72 20 | 66 69 6c 65 29 20 22 c0 |ser dir |file) ".|
|00000720| 20 70 09 1a 1b 1c c5 8e | c6 11 c7 c8 0e 09 5c 22 | p......|......\"|
|00000730| 2c 87 22 20 5b 6d 61 74 | 63 68 2d 64 61 74 61 20 |,." [mat|ch-data |
|00000740| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00000750| 20 63 66 73 20 62 75 66 | 66 20 6d 61 74 63 68 2d | cfs buf|f match-|
|00000760| 64 61 74 61 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |data ((b|yte-code|
|00000770| 20 22 c0 c1 c2 8f 88 c3 | 0c 21 87 22 20 5b 6e 69 | "......|.!." [ni|
|00000780| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 8a 08 |l (byte-|code "..|
|00000790| 71 88 09 12 29 c3 87 22 | 20 5b 62 75 66 66 20 63 |q...).."| [buff c|
|000007a0| 66 73 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |fs case-|fold-sea|
|000007b0| 72 63 68 20 6e 69 6c 5d | 20 31 29 20 28 28 65 72 |rch nil]| 1) ((er|
|000007c0| 72 6f 72 29 29 20 73 74 | 6f 72 65 2d 6d 61 74 63 |ror)) st|ore-matc|
|000007d0| 68 2d 64 61 74 61 20 6d | 61 74 63 68 2d 64 61 74 |h-data m|atch-dat|
|000007e0| 61 5d 20 33 29 29 20 6e | 69 6c 20 73 74 72 69 6e |a] 3)) n|il strin|
|000007f0| 67 2d 6d 61 74 63 68 20 | 22 5c 5c 2e 24 22 20 66 |g-match |"\\.$" f|
|00000800| 69 6c 65 5d 20 33 5d 20 | 65 66 73 2d 70 61 72 73 |ile] 3] |efs-pars|
|00000810| 65 2d 6c 69 73 74 69 6e | 67 20 23 5b 28 68 6f 73 |e-listin|g #[(hos|
|00000820| 74 20 75 73 65 72 20 64 | 69 72 20 70 61 74 68 20 |t user d|ir path |
|00000830| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 77 69 74 63 68 |&optiona|l switch|
|00000840| 65 73 29 20 22 c0 20 70 | 09 1a 1b 1c c5 8e c6 11 |es) ". p|........|
|00000850| 65 62 88 c7 c8 21 ab 98 | c9 ca 0e 0b 0e 0c 23 88 |eb...!..|......#.|
|00000860| cd ca 0e 0b 0e 0c 0e 0e | 0e 0f 0e 10 26 06 aa e8 |........|....&...|
|00000870| c7 d1 21 ab 98 c9 d2 0e | 0b 0e 0c 23 88 cd d2 0e |..!.....|...#....|
|00000880| 0b 0e 0c 0e 0e 0e 0f 0e | 10 26 06 aa cb d3 20 1e |........|.&.... .|
|00000890| 14 d5 1e 16 d5 3b ab 84 | 0e 16 aa 84 d7 0e 16 21 |.....;..|.......!|
|000008a0| 29 1e 16 d8 0e 16 0e 14 | 5c 22 1e 19 da 0e 19 db |).......|\"......|
|000008b0| dc 23 88 2a dd 1e 16 dd | 3b ab 84 0e 16 aa 84 d7 |.#.*....|;.......|
|000008c0| 0e 16 21 29 1e 16 d8 0e | 16 0e 14 5c 22 1e 19 da |..!)....|...\"...|
|000008d0| 0e 19 db de 23 88 2a 0e | 14 29 2c 87 22 20 5b 6d |....#.*.|.),." [m|
|000008e0| 61 74 63 68 2d 64 61 74 | 61 20 63 61 73 65 2d 66 |atch-dat|a case-f|
|000008f0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 63 66 73 20 62 |old-sear|ch cfs b|
|00000900| 75 66 66 20 6d 61 74 63 | 68 2d 64 61 74 61 20 28 |uff matc|h-data (|
|00000910| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 8f |(byte-co|de "....|
|00000920| 88 c3 0c 21 87 22 20 5b | 6e 69 6c 20 28 62 79 74 |...!." [|nil (byt|
|00000930| 65 2d 63 6f 64 65 20 22 | 8a 08 71 88 09 12 29 c3 |e-code "|..q...).|
|00000940| 87 22 20 5b 62 75 66 66 | 20 63 66 73 20 63 61 73 |." [buff| cfs cas|
|00000950| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 6e 69 |e-fold-s|earch ni|
|00000960| 6c 5d 20 31 29 20 28 28 | 65 72 72 6f 72 29 29 20 |l] 1) ((|error)) |
|00000970| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|00000980| 20 6d 61 74 63 68 2d 64 | 61 74 61 5d 20 33 29 29 | match-d|ata] 3))|
|00000990| 20 6e 69 6c 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 | nil loo|king-at |
|000009a0| 22 56 6f 6c 75 6d 65 20 | 22 20 65 66 73 2d 61 64 |"Volume |" efs-ad|
|000009b0| 64 2d 6c 69 73 74 69 6e | 67 2d 74 79 70 65 20 6d |d-listin|g-type m|
|000009c0| 76 73 3a 74 63 70 20 68 | 6f 73 74 20 75 73 65 72 |vs:tcp h|ost user|
|000009d0| 20 65 66 73 2d 70 61 72 | 73 65 2d 6c 69 73 74 69 | efs-par|se-listi|
|000009e0| 6e 67 20 64 69 72 20 70 | 61 74 68 20 73 77 69 74 |ng dir p|ath swit|
|000009f0| 63 68 65 73 20 22 5b 2d | 41 2d 5a 30 2d 39 5f 24 |ches "[-|A-Z0-9_$|
|00000a00| 2e 2b 5d 2b 20 22 20 6d | 76 73 3a 6e 69 68 20 65 |.+]+ " m|vs:nih e|
|00000a10| 66 73 2d 6d 61 6b 65 2d | 68 61 73 68 74 61 62 6c |fs-make-|hashtabl|
|00000a20| 65 20 74 62 6c 20 22 2e | 22 20 6b 65 79 20 70 72 |e tbl ".|" key pr|
|00000a30| 69 6e 31 2d 74 6f 2d 73 | 74 72 69 6e 67 20 69 6e |in1-to-s|tring in|
|00000a40| 74 65 72 6e 20 73 79 6d | 20 70 75 74 20 76 61 6c |tern sym| put val|
|00000a50| 20 28 74 29 20 22 2e 2e | 22 20 28 74 29 5d 20 37 | (t) "..|" (t)] 7|
|00000a60| 5d 20 65 66 73 2d 6c 73 | 2d 64 75 6d 62 2d 63 68 |] efs-ls|-dumb-ch|
|00000a70| 65 63 6b 20 23 5b 28 6c | 69 6e 65 20 68 6f 73 74 |eck #[(l|ine host|
|00000a80| 20 66 69 6c 65 20 70 61 | 74 68 20 6c 73 61 72 67 | file pa|th lsarg|
|00000a90| 73 20 6d 73 67 20 6e 6f | 70 61 72 73 65 20 6e 6f |s msg no|parse no|
|00000aa0| 65 72 72 6f 72 20 6e 6f | 77 61 69 74 20 63 6f 6e |error no|wait con|
|00000ab0| 74 29 20 22 c0 c1 5c 6e | 5c 22 85 8f 00 0b 3f ae |t) "..\n|\"....?.|
|00000ac0| 8a 0b c4 61 ae 85 c5 0e | 06 c7 5c 22 1c c8 0e 09 |...a....|..\"....|
|00000ad0| 0e 06 ca 0c 24 88 0c ab | d0 cb 0e 09 cc 20 1e 0d |....$...|..... ..|
|00000ae0| ce 1e 0f ce 3b ab 84 0e | 0f aa 84 d0 0e 0f 21 29 |....;...|......!)|
|00000af0| 1e 0f d1 0e 0f 0e 0d 5c | 22 1e 12 d3 0e 12 d4 d5 |.......\|".......|
|00000b00| 23 88 2a d6 1e 0f d6 3b | ab 84 0e 0f aa 84 d0 0e |#.*....;|........|
|00000b10| 0f 21 29 1e 0f d1 0e 0f | 0e 0d 5c 22 1e 12 d3 0e |.!).....|..\"....|
|00000b20| 12 d4 d7 23 88 2a 0e 0d | 29 5c 22 88 0e 18 ab 8d |...#.*..|)\".....|
|00000b30| 0e 19 ab 86 da 0e 19 ca | 5c 22 88 c7 aa 8b 0e 19 |........|\"......|
|00000b40| ab 86 da 0e 19 ca 5c 22 | 88 ca 29 87 22 20 5b 73 |......\"|..)." [s|
|00000b50| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5e 35 35 |tring-ma|tch "^55|
|00000b60| 30 20 22 20 6c 69 6e 65 | 20 6e 6f 70 61 72 73 65 |0 " line| noparse|
|00000b70| 20 70 61 72 73 65 20 65 | 66 73 2d 70 61 72 73 61 | parse e|fs-parsa|
|00000b80| 62 6c 65 2d 73 77 69 74 | 63 68 65 73 2d 70 20 6c |ble-swit|ches-p l|
|00000b90| 73 61 72 67 73 20 74 20 | 65 66 73 2d 61 64 64 2d |sargs t |efs-add-|
|00000ba0| 74 6f 2d 6c 73 2d 63 61 | 63 68 65 20 66 69 6c 65 |to-ls-ca|che file|
|00000bb0| 20 22 5c 6e 22 20 65 66 | 73 2d 73 65 74 2d 66 69 | "\n" ef|s-set-fi|
|00000bc0| 6c 65 73 20 65 66 73 2d | 6d 61 6b 65 2d 68 61 73 |les efs-|make-has|
|00000bd0| 68 74 61 62 6c 65 20 74 | 62 6c 20 22 2e 22 20 6b |htable t|bl "." k|
|00000be0| 65 79 20 70 72 69 6e 31 | 2d 74 6f 2d 73 74 72 69 |ey prin1|-to-stri|
|00000bf0| 6e 67 20 69 6e 74 65 72 | 6e 20 73 79 6d 20 70 75 |ng inter|n sym pu|
|00000c00| 74 20 76 61 6c 20 28 74 | 29 20 22 2e 2e 22 20 28 |t val (t|) ".." (|
|00000c10| 74 29 20 6e 6f 77 61 69 | 74 20 63 6f 6e 74 20 65 |t) nowai|t cont e|
|00000c20| 66 73 2d 63 61 6c 6c 2d | 63 6f 6e 74 5d 20 36 5d |fs-call-|cont] 6]|
|00000c30| 20 6d 76 73 3a 6e 69 68 | 20 23 5b 28 68 6f 73 74 | mvs:nih| #[(host|
|00000c40| 20 75 73 65 72 20 64 69 | 72 20 70 61 74 68 20 26 | user di|r path &|
|00000c50| 6f 70 74 69 6f 6e 61 6c | 20 73 77 69 74 63 68 65 |optional| switche|
|00000c60| 73 29 20 22 c0 20 09 c2 | 98 1b 1c 65 62 88 c5 20 |s) ". ..|...eb.. |
|00000c70| 70 0e 06 1e 07 1e 08 1e | 09 ca 8e cb 16 06 cc cd |p.......|........|
|00000c80| cb ce 23 ab b0 cf 94 cf | 95 7b 0b ad 81 d0 50 89 |..#.....|.{....P.|
|00000c90| 1e 11 3b ab 84 0e 11 aa | 84 d2 0e 11 21 29 1e 11 |..;.....|....!)..|
|00000ca0| d3 0e 11 0c 5c 22 1e 14 | d5 0e 14 d6 0b 43 23 88 |....\"..|.....C#.|
|00000cb0| 2a d7 79 88 aa 49 d0 1e | 11 d0 3b ab 84 0e 11 aa |*.y..I..|..;.....|
|00000cc0| 84 d2 0e 11 21 29 1e 11 | d3 0e 11 0c 5c 22 1e 14 |....!)..|....\"..|
|00000cd0| d5 0e 14 d6 d8 23 88 2a | 0b ac a1 d9 1e 11 d9 3b |.....#.*|.......;|
|00000ce0| ab 84 0e 11 aa 84 d2 0e | 11 21 29 1e 11 d3 0e 11 |........|.!).....|
|00000cf0| 0c 5c 22 1e 14 d5 0e 14 | d6 da 23 88 2a 2c 0c 2a |.\".....|..#.*,.*|
|00000d00| 87 22 20 5b 65 66 73 2d | 6d 61 6b 65 2d 68 61 73 |." [efs-|make-has|
|00000d10| 68 74 61 62 6c 65 20 64 | 69 72 20 22 2f 22 20 74 |htable d|ir "/" t|
|00000d20| 6f 70 2d 70 20 74 62 6c | 20 6d 61 74 63 68 2d 64 |op-p tbl| match-d|
|00000d30| 61 74 61 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |ata case|-fold-se|
|00000d40| 61 72 63 68 20 63 66 73 | 20 62 75 66 66 20 6d 61 |arch cfs| buff ma|
|00000d50| 74 63 68 2d 64 61 74 61 | 20 28 28 62 79 74 65 2d |tch-data| ((byte-|
|00000d60| 63 6f 64 65 20 22 c0 c1 | c2 8f 88 c3 0c 21 87 22 |code "..|.....!."|
|00000d70| 20 5b 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 | [nil (b|yte-code|
|00000d80| 20 22 8a 08 71 88 09 12 | 29 c3 87 22 20 5b 62 75 | "..q...|).." [bu|
|00000d90| 66 66 20 63 66 73 20 63 | 61 73 65 2d 66 6f 6c 64 |ff cfs c|ase-fold|
|00000da0| 2d 73 65 61 72 63 68 20 | 6e 69 6c 5d 20 31 29 20 |-search |nil] 1) |
|00000db0| 28 28 65 72 72 6f 72 29 | 29 20 73 74 6f 72 65 2d |((error)|) store-|
|00000dc0| 6d 61 74 63 68 2d 64 61 | 74 61 20 6d 61 74 63 68 |match-da|ta match|
|00000dd0| 2d 64 61 74 61 5d 20 33 | 29 29 20 6e 69 6c 20 72 |-data] 3|)) nil r|
|00000de0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00000df0| 20 22 5e 5b 2d 41 2d 5a | 30 2d 39 5f 24 2e 2b 5d | "^[-A-Z|0-9_$.+]|
|00000e00| 2b 22 20 74 20 30 20 22 | 2e 22 20 6b 65 79 20 70 |+" t 0 "|." key p|
|00000e10| 72 69 6e 31 2d 74 6f 2d | 73 74 72 69 6e 67 20 69 |rin1-to-|string i|
|00000e20| 6e 74 65 72 6e 20 73 79 | 6d 20 70 75 74 20 76 61 |ntern sy|m put va|
|00000e30| 6c 20 31 20 28 74 29 20 | 22 2e 2e 22 20 28 74 29 |l 1 (t) |".." (t)|
|00000e40| 5d 20 35 5d 5d 20 35 29 | 0a 23 40 35 38 20 52 65 |] 5]] 5)|.#@58 Re|
|00000e50| 67 75 6c 61 72 20 65 78 | 70 72 65 73 73 69 6f 6e |gular ex|pression|
|00000e60| 20 74 6f 20 75 73 65 20 | 74 6f 20 73 65 61 72 63 | to use |to searc|
|00000e70| 68 20 66 6f 72 20 4d 56 | 53 20 65 78 65 63 75 74 |h for MV|S execut|
|00000e80| 61 62 6c 65 73 2e 1f 0a | 28 64 65 66 63 6f 6e 73 |ables...|(defcons|
|00000e90| 74 20 65 66 73 2d 64 69 | 72 65 64 2d 6d 76 73 2d |t efs-di|red-mvs-|
|00000ea0| 72 65 2d 65 78 65 20 22 | 5e 2e 20 5b 2d 41 2d 5a |re-exe "|^. [-A-Z|
|00000eb0| 30 2d 39 5f 24 2b 5d 2b | 5c 5c 2e 45 58 45 20 22 |0-9_$+]+|\\.EXE "|
|00000ec0| 20 28 23 24 20 2e 20 33 | 36 36 32 29 29 0a 28 62 | (#$ . 3|662)).(b|
|00000ed0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 09 b7 ac 86 c0 |yte-code| "......|
|00000ee0| 5c 6e 42 09 42 11 c3 c4 | c5 c6 c0 21 0e 07 5c 22 |\nB.B...|...!..\"|
|00000ef0| c8 23 88 c3 c9 c5 c6 c0 | 21 0e 07 5c 22 ca 23 88 |.#......|!..\".#.|
|00000f00| c3 cb c5 c6 c0 21 0e 07 | 5c 22 cc 23 88 c3 cd c5 |.....!..|\".#....|
|00000f10| c6 c0 21 0e 07 5c 22 ce | 23 88 c3 cf c5 c6 c0 21 |..!..\".|#......!|
|00000f20| 0e 07 5c 22 d0 23 88 c3 | d1 c5 c6 d2 21 0e 07 5c |..\".#..|....!..\|
|00000f30| 22 d3 23 88 c3 c9 c5 c6 | d2 21 0e 07 5c 22 d4 23 |".#.....|.!..\".#|
|00000f40| 88 c3 cb c5 c6 d2 21 0e | 07 5c 22 d5 23 87 22 20 |......!.|.\".#." |
|00000f50| 5b 6d 76 73 3a 6e 69 68 | 20 65 66 73 2d 64 69 72 |[mvs:nih| efs-dir|
|00000f60| 65 64 2d 72 65 2d 65 78 | 65 2d 61 6c 69 73 74 20 |ed-re-ex|e-alist |
|00000f70| 65 66 73 2d 64 69 72 65 | 64 2d 6d 76 73 2d 72 65 |efs-dire|d-mvs-re|
|00000f80| 2d 65 78 65 20 70 75 74 | 20 65 66 73 2d 64 69 72 |-exe put| efs-dir|
|00000f90| 65 64 2d 69 6e 73 65 72 | 74 2d 68 65 61 64 65 72 |ed-inser|t-header|
|00000fa0| 6c 69 6e 65 20 69 6e 74 | 65 72 6e 20 73 79 6d 62 |line int|ern symb|
|00000fb0| 6f 6c 2d 6e 61 6d 65 20 | 65 66 73 2d 6b 65 79 2d |ol-name |efs-key-|
|00000fc0| 6f 62 61 72 72 61 79 20 | 23 5b 28 64 69 72 29 20 |obarray |#[(dir) |
|00000fd0| 22 c0 63 88 c1 75 88 c2 | 0b 21 87 22 20 5b 22 5c |".c..u..|.!." ["\|
|00000fe0| 6e 22 20 2d 31 20 65 66 | 73 2d 72 65 61 6c 2d 64 |n" -1 ef|s-real-d|
|00000ff0| 69 72 65 64 2d 69 6e 73 | 65 72 74 2d 68 65 61 64 |ired-ins|ert-head|
|00001000| 65 72 6c 69 6e 65 20 64 | 69 72 5d 20 32 5d 20 65 |erline d|ir] 2] e|
|00001010| 66 73 2d 64 69 72 65 64 | 2d 6d 61 6e 75 61 6c 2d |fs-dired|-manual-|
|00001020| 6d 6f 76 65 2d 74 6f 2d | 66 69 6c 65 6e 61 6d 65 |move-to-|filename|
|00001030| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 72 61 | #[(&opt|ional ra|
|00001040| 69 73 65 2d 65 72 72 6f | 72 20 62 6f 6c 20 65 6f |ise-erro|r bol eo|
|00001050| 6c 29 20 22 08 ac 88 8a | c1 c2 77 88 60 29 10 c2 |l) "....|..w.`)..|
|00001060| 1b 0c ab 85 0c 62 88 aa | 86 c1 c2 78 88 60 14 08 |.....b..|...x.`..|
|00001070| 0c 5a c5 56 ab 8f c5 75 | 88 c6 c2 77 88 c7 c8 21 |.Z.V...u|...w...!|
|00001080| ab 83 60 aa 8a 0c 62 88 | 0e 09 ad 83 ca cb 21 29 |..`...b.|......!)|
|00001090| 87 22 20 5b 65 6f 6c 20 | 22 5e 5c 6e 0d 22 20 6e |." [eol |"^\n." n|
|000010a0| 69 6c 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |il case-|fold-sea|
|000010b0| 72 63 68 20 62 6f 6c 20 | 32 20 22 20 09 22 20 6c |rch bol |2 " ." l|
|000010c0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5b 2d 41 2d 5a |ooking-a|t "[-A-Z|
|000010d0| 30 2d 39 24 5f 2e 2b 5d | 2b 5b 20 5c 6e 0d 5d 22 |0-9$_.+]|+[ \n.]"|
|000010e0| 20 72 61 69 73 65 2d 65 | 72 72 6f 72 20 65 72 72 | raise-e|rror err|
|000010f0| 6f 72 20 22 4e 6f 20 66 | 69 6c 65 20 6f 6e 20 74 |or "No f|ile on t|
|00001100| 68 69 73 20 6c 69 6e 65 | 22 5d 20 32 5d 20 65 66 |his line|"] 2] ef|
|00001110| 73 2d 64 69 72 65 64 2d | 6d 61 6e 75 61 6c 2d 6d |s-dired-|manual-m|
|00001120| 6f 76 65 2d 74 6f 2d 65 | 6e 64 2d 6f 66 2d 66 69 |ove-to-e|nd-of-fi|
|00001130| 6c 65 6e 61 6d 65 20 23 | 5b 28 26 6f 70 74 69 6f |lename #|[(&optio|
|00001140| 6e 61 6c 20 6e 6f 2d 65 | 72 72 6f 72 20 62 6f 6c |nal no-e|rror bol|
|00001150| 20 65 6f 6c 29 20 22 60 | 18 09 ab a7 5c 6e ac a4 | eol) "`|....\n..|
|00001160| 0b ae 87 8a c4 c5 78 88 | 60 29 53 66 c6 61 ab 94 |......x.|`)Sf.a..|
|00001170| c7 c8 20 21 ab 88 c9 ca | cb 21 21 88 aa 86 c9 ca |.. !....|.!!.....|
|00001180| cc 21 21 88 cd 0e 0e 77 | 88 08 60 55 ac 85 67 cf |.!!....w|..`U..g.|
|00001190| 73 ac 89 5c 6e 3f ad 86 | c9 d0 21 aa 81 60 29 87 |s..\n?..|..!..`).|
|000011a0| 22 20 5b 6f 70 6f 69 6e | 74 20 73 65 6c 65 63 74 |" [opoin|t select|
|000011b0| 69 76 65 2d 64 69 73 70 | 6c 61 79 20 6e 6f 2d 65 |ive-disp|lay no-e|
|000011c0| 72 72 6f 72 20 62 6f 6c | 20 22 5e 0d 5c 6e 22 20 |rror bol| "^.\n" |
|000011d0| 6e 69 6c 20 3f 5c 72 20 | 64 69 72 65 64 2d 73 75 |nil ?\r |dired-su|
|000011e0| 62 64 69 72 2d 68 69 64 | 64 65 6e 2d 70 20 64 69 |bdir-hid|den-p di|
|000011f0| 72 65 64 2d 63 75 72 72 | 65 6e 74 2d 64 69 72 65 |red-curr|ent-dire|
|00001200| 63 74 6f 72 79 20 65 72 | 72 6f 72 20 73 75 62 73 |ctory er|ror subs|
|00001210| 74 69 74 75 74 65 2d 63 | 6f 6d 6d 61 6e 64 2d 6b |titute-c|ommand-k|
|00001220| 65 79 73 20 22 46 69 6c | 65 20 6c 69 6e 65 20 69 |eys "Fil|e line i|
|00001230| 73 20 68 69 64 64 65 6e | 2e 20 54 79 70 65 20 5c |s hidden|. Type \|
|00001240| 5c 5b 64 69 72 65 64 2d | 68 69 64 65 2d 73 75 62 |\[dired-|hide-sub|
|00001250| 64 69 72 5d 20 74 6f 20 | 75 6e 68 69 64 65 2e 22 |dir] to |unhide."|
|00001260| 20 22 46 69 6c 65 20 6c | 69 6e 65 20 69 73 20 6f | "File l|ine is o|
|00001270| 6d 69 74 74 65 64 2e 20 | 54 79 70 65 20 5c 5c 5b |mitted. |Type \\[|
|00001280| 64 69 72 65 64 2d 6f 6d | 69 74 2d 74 6f 67 67 6c |dired-om|it-toggl|
|00001290| 65 5d 20 74 6f 20 75 6e | 2d 6f 6d 69 74 2e 22 20 |e] to un|-omit." |
|000012a0| 22 2d 41 2d 5a 30 2d 39 | 24 5f 2e 2b 22 20 65 6f |"-A-Z0-9|$_.+" eo|
|000012b0| 6c 20 28 3f 5c 6e 20 3f | 5c 72 20 3f 5c 20 29 20 |l (?\n ?|\r ?\ ) |
|000012c0| 22 4e 6f 20 66 69 6c 65 | 20 6f 6e 20 74 68 69 73 |"No file| on this|
|000012d0| 20 6c 69 6e 65 22 5d 20 | 33 5d 20 65 66 73 2d 64 | line"] |3] efs-d|
|000012e0| 69 72 65 64 2d 67 65 74 | 2d 66 69 6c 65 6e 61 6d |ired-get|-filenam|
|000012f0| 65 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 6c |e #[(&op|tional l|
|00001300| 6f 63 61 6c 70 20 6e 6f | 2d 65 72 72 6f 72 2d 69 |ocalp no|-error-i|
|00001310| 66 2d 6e 6f 74 2d 66 69 | 6c 65 70 29 20 22 c0 09 |f-not-fi|lep) "..|
|00001320| 5c 6e 5c 22 c3 c4 20 21 | 1d 89 1e 06 ab 8d c7 0d |\n\".. !|........|
|00001330| 38 c8 98 ab 86 0e 06 c9 | 50 aa 82 0e 06 2a 87 22 |8.......|P....*."|
|00001340| 20 5b 65 66 73 2d 72 65 | 61 6c 2d 64 69 72 65 64 | [efs-re|al-dired|
|00001350| 2d 67 65 74 2d 66 69 6c | 65 6e 61 6d 65 20 6c 6f |-get-fil|ename lo|
|00001360| 63 61 6c 70 20 6e 6f 2d | 65 72 72 6f 72 2d 69 66 |calp no-|error-if|
|00001370| 2d 6e 6f 74 2d 66 69 6c | 65 70 20 65 66 73 2d 66 |-not-fil|ep efs-f|
|00001380| 74 70 2d 70 61 74 68 20 | 64 69 72 65 64 2d 63 75 |tp-path |dired-cu|
|00001390| 72 72 65 6e 74 2d 64 69 | 72 65 63 74 6f 72 79 20 |rrent-di|rectory |
|000013a0| 70 61 72 73 65 64 20 6e | 61 6d 65 20 32 20 22 2f |parsed n|ame 2 "/|
|000013b0| 22 20 22 2e 22 5d 20 34 | 5d 20 65 66 73 2d 64 69 |" "."] 4|] efs-di|
|000013c0| 72 65 64 2d 66 69 78 75 | 70 2d 6c 69 73 74 69 6e |red-fixu|p-listin|
|000013d0| 67 20 23 5b 28 66 69 6c | 65 20 70 61 74 68 20 26 |g #[(fil|e path &|
|000013e0| 6f 70 74 69 6f 6e 61 6c | 20 73 77 69 74 63 68 65 |optional| switche|
|000013f0| 73 20 77 69 6c 64 63 61 | 72 64 29 20 22 65 62 88 |s wildca|rd) "eb.|
|00001400| c0 c1 c2 c3 23 ad 86 c4 | c5 21 88 aa 73 87 22 20 |....#...|.!..s." |
|00001410| 5b 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |[re-sear|ch-forwa|
|00001420| 72 64 20 22 20 2b 24 22 | 20 6e 69 6c 20 74 20 72 |rd " +$"| nil t r|
|00001430| 65 70 6c 61 63 65 2d 6d | 61 74 63 68 20 22 22 5d |eplace-m|atch ""]|
|00001440| 20 34 5d 20 65 66 73 2d | 70 61 72 73 65 2d 6c 69 | 4] efs-|parse-li|
|00001450| 73 74 69 6e 67 20 6d 76 | 73 3a 74 63 70 20 23 5b |sting mv|s:tcp #[|
|00001460| 28 68 6f 73 74 20 75 73 | 65 72 20 64 69 72 20 70 |(host us|er dir p|
|00001470| 61 74 68 20 26 6f 70 74 | 69 6f 6e 61 6c 20 73 77 |ath &opt|ional sw|
|00001480| 69 74 63 68 65 73 29 20 | 22 c0 20 70 09 1a 1b 1c |itches) |". p....|
|00001490| c5 8e c6 11 65 62 88 c7 | c8 21 85 b2 01 c9 20 ca |....eb..|.!.... .|
|000014a0| 0e 0b 73 c6 89 89 89 89 | 89 1e 0c 1e 0d 1e 0e 1e |..s.....|........|
|000014b0| 0f 1e 10 1e 11 1e 12 1e | 13 d4 79 88 6d 84 3b 01 |........|..y.m.;.|
|000014c0| c6 7f 88 60 d5 c6 78 88 | 60 7b 16 10 0e 16 16 0f |...`..x.|`{......|
|000014d0| d7 d8 0e 10 5c 22 16 0c | 0e 10 89 1e 19 3b ab 84 |....\"..|.....;..|
|000014e0| 0e 19 aa 84 da 0e 19 21 | 29 1e 19 db 0e 19 0e 13 |.......!|).......|
|000014f0| 5c 22 1e 1c dd 0e 1c de | df 23 88 2a 0e 0c 83 35 |\"......|.#.*...5|
|00001500| 01 0e 0c 54 16 0c 0e 10 | e0 0e 0c 4f 89 16 0e 89 |...T....|...O....|
|00001510| 1e 19 3b ab 84 0e 19 aa | 84 da 0e 19 21 29 1e 19 |..;.....|....!)..|
|00001520| db 0e 19 0e 13 5c 22 1e | 1c dd 0e 1c de e1 23 88 |.....\".|......#.|
|00001530| 2a 0e 0c 83 35 01 e2 c6 | 0e 0f 0e 0e 50 5c 22 16 |*...5...|....P\".|
|00001540| 0f 0e 10 0e 0c c6 4f 16 | 10 e3 0e 0f 0e 11 5c 22 |......O.|......\"|
|00001550| 41 89 16 0d ac 8e c9 20 | 16 0d 0e 0f 0e 0d 42 0e |A...... |......B.|
|00001560| 11 42 16 11 0e 10 89 1e | 19 3b ab 84 0e 19 aa 84 |.B......|.;......|
|00001570| da 0e 19 21 29 1e 19 db | 0e 19 0e 0d 5c 22 1e 1c |...!)...|....\"..|
|00001580| dd 0e 1c de e4 23 88 2a | d7 d8 0e 10 5c 22 89 16 |.....#.*|....\"..|
|00001590| 0c ab 5c 22 0e 0c 54 16 | 0c 0e 10 e0 0e 0c 4f 89 |..\"..T.|......O.|
|000015a0| 16 0e 89 1e 19 3b ab 84 | 0e 19 aa 84 da 0e 19 21 |.....;..|.......!|
|000015b0| 29 1e 19 db 0e 19 0e 0d | 5c 22 1e 1c dd 0e 1c de |).......|\"......|
|000015c0| e5 23 88 2a 82 a5 00 d4 | 79 88 82 33 00 0e 11 ab |.#.*....|y..3....|
|000015d0| ef 0e 11 40 40 89 1e 19 | 3b ab 84 0e 19 aa 84 da |...@@...|;.......|
|000015e0| 0e 19 21 29 1e 19 0e 12 | ab bb e6 1e 27 0e 19 1e |..!)....|....'...|
|000015f0| 28 0e 29 1e 0d 0e 19 47 | 1e 2a eb 0e 28 0e 0d ec |(.)....G|.*..(...|
|00001600| 23 89 1e 2d ad 94 0e 2d | e6 61 ab 88 db 0e 28 0e |#..-...-|.a....(.|
|00001610| 0d 5c 22 aa 86 db 0e 2d | 0e 0d 5c 22 2d ae 8e db |.\"....-|..\"-...|
|00001620| 0e 19 0e 29 5c 22 aa 86 | db 0e 19 0e 29 5c 22 1e |...)\"..|....)\".|
|00001630| 1c dd 0e 1c de 0e 11 40 | 41 23 88 2a 0e 11 41 89 |.......@|A#.*..A.|
|00001640| 16 11 ac 11 0e 13 2e 08 | 2c 87 22 20 5b 6d 61 74 |........|,." [mat|
|00001650| 63 68 2d 64 61 74 61 20 | 63 61 73 65 2d 66 6f 6c |ch-data |case-fol|
|00001660| 64 2d 73 65 61 72 63 68 | 20 63 66 73 20 62 75 66 |d-search| cfs buf|
|00001670| 66 20 6d 61 74 63 68 2d | 64 61 74 61 20 28 28 62 |f match-|data ((b|
|00001680| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 8f 88 c3 |yte-code| "......|
|00001690| 0c 21 87 22 20 5b 6e 69 | 6c 20 28 62 79 74 65 2d |.!." [ni|l (byte-|
|000016a0| 63 6f 64 65 20 22 8a 08 | 71 88 09 12 29 c3 87 22 |code "..|q...).."|
|000016b0| 20 5b 62 75 66 66 20 63 | 66 73 20 63 61 73 65 2d | [buff c|fs case-|
|000016c0| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 6e 69 6c 5d |fold-sea|rch nil]|
|000016d0| 20 31 29 20 28 28 65 72 | 72 6f 72 29 29 20 73 74 | 1) ((er|ror)) st|
|000016e0| 6f 72 65 2d 6d 61 74 63 | 68 2d 64 61 74 61 20 6d |ore-matc|h-data m|
|000016f0| 61 74 63 68 2d 64 61 74 | 61 5d 20 33 29 29 20 6e |atch-dat|a] 3)) n|
|00001700| 69 6c 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 56 |il looki|ng-at "V|
|00001710| 6f 6c 75 6d 65 20 22 20 | 65 66 73 2d 6d 61 6b 65 |olume " |efs-make|
|00001720| 2d 68 61 73 68 74 61 62 | 6c 65 20 6d 76 73 20 65 |-hashtab|le mvs e|
|00001730| 66 73 2d 63 61 73 65 2d | 69 6e 73 65 6e 73 69 74 |fs-case-|insensit|
|00001740| 69 76 65 2d 68 6f 73 74 | 2d 74 79 70 65 73 20 64 |ive-host|-types d|
|00001750| 69 72 2d 70 20 74 62 6c | 20 66 6e 20 64 6e 20 66 |ir-p tbl| fn dn f|
|00001760| 69 6c 65 20 74 62 6c 2d | 6c 69 73 74 20 63 61 73 |ile tbl-|list cas|
|00001770| 65 2d 66 6f 6c 64 20 74 | 6f 70 2d 74 62 6c 20 31 |e-fold t|op-tbl 1|
|00001780| 20 22 5e 20 22 20 70 61 | 74 68 20 73 74 72 69 6e | "^ " pa|th strin|
|00001790| 67 2d 6d 61 74 63 68 20 | 22 5c 5c 2e 22 20 6b 65 |g-match |"\\." ke|
|000017a0| 79 20 70 72 69 6e 31 2d | 74 6f 2d 73 74 72 69 6e |y prin1-|to-strin|
|000017b0| 67 20 69 6e 74 65 72 6e | 20 73 79 6d 20 70 75 74 |g intern| sym put|
|000017c0| 20 76 61 6c 20 28 6e 69 | 6c 29 20 30 20 28 74 29 | val (ni|l) 0 (t)|
|000017d0| 20 65 66 73 2d 69 6e 74 | 65 72 6e 61 6c 2d 66 69 | efs-int|ernal-fi|
|000017e0| 6c 65 2d 6e 61 6d 65 2d | 61 73 2d 64 69 72 65 63 |le-name-|as-direc|
|000017f0| 74 6f 72 79 20 61 73 73 | 6f 63 20 28 6e 69 6c 29 |tory ass|oc (nil)|
|00001800| 20 28 74 29 20 74 20 63 | 6f 6d 70 6c 65 74 69 6f | (t) t c|ompletio|
|00001810| 6e 2d 69 67 6e 6f 72 65 | 2d 63 61 73 65 20 6e 61 |n-ignore|-case na|
|00001820| 6d 65 20 65 66 73 2d 66 | 69 6c 65 73 2d 68 61 73 |me efs-f|iles-has|
|00001830| 68 74 61 62 6c 65 20 6c | 65 6e 20 74 72 79 2d 63 |htable l|en try-c|
|00001840| 6f 6d 70 6c 65 74 69 6f | 6e 20 23 5b 28 73 79 6d |ompletio|n #[(sym|
|00001850| 29 20 22 c0 09 21 47 5c | 6e 55 87 22 20 5b 73 79 |) "..!G\|nU." [sy|
|00001860| 6d 62 6f 6c 2d 6e 61 6d | 65 20 73 79 6d 20 6c 65 |mbol-nam|e sym le|
|00001870| 6e 5d 20 32 5d 20 6e 65 | 77 6e 61 6d 65 5d 20 39 |n] 2] ne|wname] 9|
|00001880| 5d 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 72 |] #[(&op|tional r|
|00001890| 61 69 73 65 2d 65 72 72 | 6f 72 20 62 6f 6c 20 65 |aise-err|or bol e|
|000018a0| 6f 6c 29 20 22 08 ac 88 | 8a c1 c2 77 88 60 29 10 |ol) "...|...w.`).|
|000018b0| c2 1b 0c ab 85 0c 62 88 | aa 86 c1 c2 78 88 60 14 |......b.|....x.`.|
|000018c0| c5 c6 08 c7 23 ab 95 08 | 62 88 c8 c2 78 88 c9 68 |....#...|b...x..h|
|000018d0| ca 5c 22 ab 88 08 60 55 | ac 83 60 aa 8a 0c 62 88 |.\"...`U|..`...b.|
|000018e0| 0e 0b ad 83 cc cd 21 29 | 87 22 20 5b 65 6f 6c 20 |......!)|." [eol |
|000018f0| 22 5e 5c 6e 0d 22 20 6e | 69 6c 20 63 61 73 65 2d |"^\n." n|il case-|
|00001900| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 62 6f 6c 20 |fold-sea|rch bol |
|00001910| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001920| 64 20 22 20 5b 30 2d 39 | 5d 5b 30 2d 39 5d 2f 5b |d " [0-9|][0-9]/[|
|00001930| 30 2d 39 5d 5b 30 2d 39 | 5d 2f 5b 30 2d 39 5d 5b |0-9][0-9|]/[0-9][|
|00001940| 30 2d 39 5d 20 22 20 74 | 20 22 2d 41 2d 5a 30 2d |0-9] " t| "-A-Z0-|
|00001950| 39 24 5f 2e 22 20 63 68 | 61 72 2d 65 71 75 61 6c |9$_." ch|ar-equal|
|00001960| 20 3f 5c 20 20 72 61 69 | 73 65 2d 65 72 72 6f 72 | ?\  rai|se-error|
|00001970| 20 65 72 72 6f 72 20 22 | 4e 6f 20 66 69 6c 65 20 | error "|No file |
|00001980| 6f 6e 20 74 68 69 73 20 | 6c 69 6e 65 22 5d 20 34 |on this |line"] 4|
|00001990| 5d 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 6e |] #[(&op|tional n|
|000019a0| 6f 2d 65 72 72 6f 72 20 | 62 6f 6c 20 65 6f 6c 29 |o-error |bol eol)|
|000019b0| 20 22 60 18 09 ab a7 5c | 6e ac a4 0b ae 87 8a c4 | "`....\|n.......|
|000019c0| c5 78 88 60 29 53 66 c6 | 61 ab 94 c7 c8 20 21 ab |.x.`)Sf.|a.... !.|
|000019d0| 88 c9 ca cb 21 21 88 aa | 86 c9 ca cc 21 21 88 cd |....!!..|....!!..|
|000019e0| 0e 0e 77 88 08 60 55 ac | 85 67 cf 73 ac 89 5c 6e |..w..`U.|.g.s..\n|
|000019f0| 3f ad 86 c9 d0 21 aa 81 | 60 29 87 22 20 5b 6f 70 |?....!..|`)." [op|
|00001a00| 6f 69 6e 74 20 73 65 6c | 65 63 74 69 76 65 2d 64 |oint sel|ective-d|
|00001a10| 69 73 70 6c 61 79 20 6e | 6f 2d 65 72 72 6f 72 20 |isplay n|o-error |
|00001a20| 62 6f 6c 20 22 5e 0d 5c | 6e 22 20 6e 69 6c 20 3f |bol "^.\|n" nil ?|
|00001a30| 5c 72 20 64 69 72 65 64 | 2d 73 75 62 64 69 72 2d |\r dired|-subdir-|
|00001a40| 68 69 64 64 65 6e 2d 70 | 20 64 69 72 65 64 2d 63 |hidden-p| dired-c|
|00001a50| 75 72 72 65 6e 74 2d 64 | 69 72 65 63 74 6f 72 79 |urrent-d|irectory|
|00001a60| 20 65 72 72 6f 72 20 73 | 75 62 73 74 69 74 75 74 | error s|ubstitut|
|00001a70| 65 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 22 |e-comman|d-keys "|
|00001a80| 46 69 6c 65 20 6c 69 6e | 65 20 69 73 20 68 69 64 |File lin|e is hid|
|00001a90| 64 65 6e 2e 20 54 79 70 | 65 20 5c 5c 5b 64 69 72 |den. Typ|e \\[dir|
|00001aa0| 65 64 2d 68 69 64 65 2d | 73 75 62 64 69 72 5d 20 |ed-hide-|subdir] |
|00001ab0| 74 6f 20 75 6e 68 69 64 | 65 2e 22 20 22 46 69 6c |to unhid|e." "Fil|
|00001ac0| 65 20 6c 69 6e 65 20 69 | 73 20 6f 6d 69 74 74 65 |e line i|s omitte|
|00001ad0| 64 2e 20 54 79 70 65 20 | 5c 5c 5b 64 69 72 65 64 |d. Type |\\[dired|
|00001ae0| 2d 6f 6d 69 74 2d 74 6f | 67 67 6c 65 5d 20 74 6f |-omit-to|ggle] to|
|00001af0| 20 75 6e 2d 6f 6d 69 74 | 2e 22 20 22 2d 41 2d 5a | un-omit|." "-A-Z|
|00001b00| 30 2d 39 24 5f 2e 2b 22 | 20 65 6f 6c 20 28 3f 5c |0-9$_.+"| eol (?\|
|00001b10| 6e 20 3f 5c 72 20 3f 5c | 20 29 20 22 4e 6f 20 66 |n ?\r ?\| ) "No f|
|00001b20| 69 6c 65 20 6f 6e 20 74 | 68 69 73 20 6c 69 6e 65 |ile on t|his line|
|00001b30| 22 5d 20 33 5d 5d 20 35 | 29 0a                   |"] 3]] 5|).      |
+--------+-------------------------+-------------------------+--------+--------+